home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / ptv1n4.arc / MGET.PAS < prev    next >
Pascal/Delphi Source File  |  1990-09-13  |  507b  |  20 lines
  1. { mget.pas -- Retrieve multiple strings from TSR }
  2. program mget;
  3. uses crt, utransfer;
  4. var
  5.    s : string;       { String to receive transfer }
  6.    n : word;         { Number of bytes transferred }
  7. begin
  8.    ClearBlock;       { Reset TSR's buffer }
  9.    repeat
  10.       n := GetBlock( @s, sizeof(s) );  { Get data from TSR }
  11.       if n <> 0 then 
  12.       begin
  13.          ClearBlock;       { Erase old string }
  14.          writeln( s )      { Display string }
  15.       end { if }
  16.    until s = 'exit'
  17. end.
  18.  
  19.  
  20.